Top 10k strings from Video Basic - Issue 05 (1985)(Ingelek Jackson)(16k)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

  11 CAR       
   5 A$="PON EN MARCHA LA GRABADORA":
   5 "4";"ESTA BIEN ESCRITO ? (S/N)";
   5 "23606",z:
   5 "10",z;"       PARA LA GRABADORA        ":
   4 t$=" PULSA UNA TECLA PARA CONTINUAR "
   4 "9",N;" ~|";
   4 "8",N;A$(N-2
   4 "3";"ESCRIBE TU NOMBRE EN EL         TECLADO Y PULSA <ENTER>":
   4 "10",N;" \]"
   4  PASO A LA PARTE";
   3 t$(2)-48":
   3 U;" ";N$;" "
   3 T$="   ELIGE, `:":
   3 ;"       PARA LA GRABADORA        ":
   3 ;"                                ":
   3 "28"-J/A,ER+J/A*.7
   3 "126-XL/2",
   3 "10-a/2",U;
   3  VUELTA AL PRINCIPIO";
   2 y+y1,x+x1;
   2 y$=" PULSA UNA TECLA PARA CONTINUAR ":
   2 t$="f812d11 C =  "+
   2 t$(3)-48":
   2 p$="VIDEOHARDWARE:               ":
   2 p$="VIDEOBREAK:                  ":
   2 p$="VIDEOBASIC-LA PROGRAMACION:  ":
   2 LETREROS ENTRANTES
   2 LETRERO ROTATORIO
   2 LEE LOS UDG
   2 HOMBRECILLO
   2 CHR$CODE  
   2 ;"VIDEOBASIC":
   2 ;"INTROGENER"
   2 ;"  SIGUIENTE"
   2 ;"               "
   2 *          *
   2 *           *
   2 "6";"  SIGUIENTE"
   2 "23296"+N,
   2 "(21-YP)*8-2":
   2  SOFTIDEA  (Como) 
   2        PARA LA GRABADORA        
   2                 
   2                
   1 z(i),n;"_":
   1 z(i),k(i);d$(i);" ";
   1 yp=yp+(t$(i)="b")-(t$(i)="a"):
   1 y(n)=y(n+1
   1 y$="PULSA UNA TECLA PARA CONTINUAR ":
   1 xp=xp+(t$(i)="d")-(t$(i)="s"):
   1 x1,y1;p$(y)
   1 w$="PON EN MARCHA LA GRABADORA":
   1 u;"KE"(FL+U);
   1 u;"EXACTO !":
   1 u;"C=VAR.CONTR. N=NUMERO  X=RESULT."
   1 t$="f412d11 C = 1 
   1 t$="TRADUCCION AL
   1 t$(u+u)-48":
   1 t$(u)="<":
   1 t$(u)="1292"(B)
   1 t$(4)-49":
   1 t$(3)-49":
   1 t$(3)-48)*4+2":
   1 t$(3)-48",
   1 t$(2)-48)*8+2":
   1 t$(2)-48";
   1 qqqqqqqqqqqqqqqqqqqqqqqqqtttttttqqqqqqqqqqqqqqqqqtttttttttttttttqqqqqqqqqqqqqqqqqqqtrrrrrrrrrrttqqqqqqqqqqqqqqqqqqqqttttttttttttrrrzzzzzyyyyyyyyyzrrttttttttttttrrrzxxxxxxxxxxxxxzrtttttttttttttrrrzxxxxxxxx|||||zrtttttttttttttrrrz}}xxx||||||||zrtttttttttttttrrrz}}xxx|||yyy||zrtttttttttttttrrrz}}xxx|||yyyy|zrtttttttttttttrrrz}xxzzbb|xyyy|zrtttttttttttttrrrz}}xzzbb|xyyy|zrtttttttttttttrrrz}}xzzbb||||||zrtttttttttttttrrrz}}xxxzb||||||zrtttttttttttttrrrz}}xxx||||||||zrtttttttttttttrrrz}}xxxxxxxxxxxzrtttttttttttttrrrzxxxxxxxxxxxxxzrtttttttttttttrrrzxxxxxxxxxxxxxzrtttttttttttttrrrzxxxxxxxxxxxxxzrtttttttttttttrrrzxxzzzzzzzzzzzzrrrtttttttttttrrrzxxzzzzzzzzzzzzrrrtttttttttttrrrzzzzzzzzzzzzzzzrrrtttttttttttrrrzzzzzzzzzzzzzzzrttttttttttttt22222222222222222222222244444444
   1 p;"            ":
   1 p;"               ":
   1 p$="siguientes :  ":
   1 p$="los temas de la leccion   ":
   1 p$="juego de adivinanzas sobre ":
   1 p$="en el proximo numero...    ":
   1 p$="el televisor               ":
   1 p$="concierto de bytes          ":
   1 p$="VIDEOTEST:                  ":
   1 p$="VIDEONEXT:                  ":
   1 p$="VIDEONEXT":
   1 p$="VIDEOLIST":
   1 p$="VIDEOJUEGO:                 ":
   1 p$="VIDEOJUEGO:                  ":
   1 p$="VIDEOBASIC-EL LENGUAJE:      ":
   1 p$="Uso avanzado de PRINT-INPUT ":
   1 p$="Usa los mandos":
   1 p$="RND - RANDOMIZE            ":
   1 p$="PAUSE                      ":
   1 p$="PARA LA GRABADORA":
   1 p$="MOSAICO                     ":
   1 p$="LOS CICLOS AUTOMATICOS      ":
   1 p$="LABERINTO 3D                ":
   1 p$="Inserta los colores":
   1 p$="FOR - TO - STEP - NEXT    ":
   1 p$="El ~Cubo Magico~":
   1 p$="El monitor y                ":
   1 p$="El hardware del teclado     ":
   1 p$="ESTAS PREPARADO !@":
   1 p$="ESTA VEZ, ":
   1 p$="Cubo Magico                ":
   1 p$="CHR$ - CODE - INKEY$        ":
   1 p$="AT - TAB - ATRIBUTOS        ":
   1 p$="* Preparacion *":
   1 p$="  del SPECTRUM               ":
   1 p$="     Resuelve    ":
   1 p$="                  ":
   1 n;"        ":
   1 n;"         ":
   1 i+"d3A C <= 3f;01f810f;21
   1 f$(pn,u)="#"
   1 copy=23760
   1 cc-aa,dd-bb,ee:
   1 c$(k,j)=d$:
   1 b$=b$+(w$(j)
   1 attr=23813
   1 aa,bb,cc,dd,ee:
   1 a;"               ":
   1 a$=a$+f$(rc,i):
   1 a$="rafbid"
   1 a$="VIDEOBASIC.":
   1 a$="UN CIRCUITO INTEGRADO, AL LEERLA LINEA Y LA COLUMNA, LOCALI-ZA LA TECLA Y  CONVIERTE  ESTAINFORMACION  EN  UN  CARACTER,SEGUN LA TABLA  DEL  JUEGO  DECARACTERES.":
   1 a$="Quieres  ver  de  nuevo   estaleccion ? (S/N)":
   1 a$="POR EJEMPLO: PULSANDO <N>, DE-TERMINAS EL CONTACTO ENTRE  LALINEA Y LA COLUMNA QUE LA  LO-CALIZA. ESTO LE PERMITE AL IN-TEGRADO RECONOCERLA, Y  EMITIREL CODIGO CORRESPONDIENTE.":
   1 a$="LA PULSACION DE UNA TECLA, DE-TERMINA  EN  LA  PRACTICA   UNCONTACTO ENTRE  DOS  CONDUCTO-RES: UNO HORIZONTAL  (LINEA) YOTRO VERTICAL (COLUMNA).":
   1 a$="LA PROGRAMACION":
   1 a$="Hasta pronto,":
   1 a$="ESTOS ACTUAN SOBRE UN CIRCUITOPROYECTADO PARA  PERMITIR  MASDE UNA FUNCION POR TECLA.":
   1 a$="EN EL CASO DE QUE PULSES  <7>,LA  CPU,  DESPUES  DE  HABERLORECONOCIDO,  EMITE  EL  CODIGO<55>.":
   1 a$="        VIDEOHARDWARE:              curso de hardware":
   1 a$="               ":
   1 a$="                "
   1 a$="                                   VIDEOBASIC  PRESENTA     ":
   1 YY,XX;"      ";
   1 Y,N;A$(N-2
   1 Y,N;" {|";
   1 Y$="PULSA UNA TECLA PARA CONTINUAR ":
   1 Y$=" PULSA UNA TECLA PARA CONTINUAR "
   1 X<21)+(30-X)*(X>20)"):
   1 X,Y;T$(N):
   1 X","02ACIERRA CICLO","<<1;","2A50
   1 Via Indipendenza, 88
   1 Via Indipendenza 88
   1 VISUALIZACION BLOQUE
   1 VIDEOTEST 
   1 VIDEONEXT G
   1 VIDEOLIST 
   1 VIDEOHARD H
   1 VIDEOBREAK
   1 VIDEOBASIC N.5
   1 VIDEOBASIC
   1 VARIA EL INCREMENTO EN UN  CI-CLO FOR-NEXT                      STEP        
   1 U;"VUELVE A INTENTARLO !":
   1 U;"OTRA VEZ..":
   1 U;"LIMITE=3"
   1 U;"ESTA ES LA INSTRUCCION EXACTA:":
   1 U;"ERROR !":
   1 U;" ";N$;" "  
   1 U+U,XP;A$;
   1 TIPO DE TECLADO DEL SPECTRUM                                    MEMBRANA    
   1 TIPO DE ARGUMENTO PARA CODE                                     CADENA      
   1 TEST05    
   1 T$="QUIZAS SEA MEJOR QUE VUELVAS AVER CON  CALMA  EL  DESARROLLODEL PROGRAMA, Y LO INTENTES DENUEVO CON CUIDADO.":
   1 T$="EMPLEA  EL  TECLADO  COMO  HASAPRENDIDO EN LAS LECCIONES AN-TERIORES, Y REDACTA LAS  ORDE-NES QUE TE VAYA  PIDIENDO.":
   1 T$="ELIGE, "+N$:
   1 T$="AHORA, "+N$+"":
   1 T$="   ELIGE, {:":
   1 SE INTERCALA ENTRE LOS LIMITESDEL FOR                           TO          
   1 SCROLL=23828
   1 SCREEN    
   1 S$=" PULSA UNA TECLA PARA CONTINUAR "
   1 RUTINA PARA MAQUINA DE ESCRIBIR
   1 RUTINA MAQUINA DE ESCRIBIR
   1 PRUEBA AHORA A VOLVER A ESCRI-BIR EL PROGRAMA,  EN  BASE  ALDIAGRAMA DE FLUJO.
   1 PROPIEDAD DE TECLA QUE SE  RE-PITE SI SE MANTIENE PULSADA       AUTOREPEAT  
   1 PROGRAM.  
   1 PORTADA   
   1 PETICION DEL NOMBRE
   1 P$=P$+"@":
   1 P$="VIDEOBASIC-EL LENGUAJE:      ":
   1 P$="TE PROPONGO UN JUEGO DISTINTO DE LO HABITUAL:":
   1 P$="TE HABRAS DADO CUENTA, DE  QUEASI, PUEDES EFECTUAR CUALQUIERMOVIMIENTO.@":
   1 P$="SI QUIERES VOLVER A VER ESTAS INTRUCCIONES PULSA <R>, DE LO CONTRARIO <C>." 
   1 P$="POR EJEMPLO, PUEDES HACER  GI-RAR LA CARA DELANTERA, 2 POSI-CIONES EN EL  SENTIDO  DE  LASAGUJAS DEL RELOJ.@":
   1 P$="PARA PODER SER REPRESENTADO ENSU TOTALIDAD, EL CUBO HA  SIDODIBUJADO  ABIERTO,  ES  DECIR,COMO UNA FIGURA PLANA.@"
   1 P$="LAS ORDENES QUE PUEDES  UTILI-ZAR, ESTAN ARRIBA DESCRITAS.@"
   1 P$="HE AQUI OTRO EJEMPLO:<A3>@":
   1 P$="HAS DE IMAGINAR QUE TIENES  ELCUBO ENTRE LAS  MANOS,  Y  QUEPUEDES HACERLO GIRAR EN  CUAL-QUIER DIRECCION.@"
   1 P$="ESTE PASATIEMPO HA  APASIONADOY ENLOQUECIDO  A  MILLONES  DEPERSONAS,  AHORA  TU   TAMBIENTIENES LA POSIBILIDAD DE JUGARCON TU SPECTRUM."
   1 P$="ENTONCES LA ORDEN SERIA: <F2>,ES DECIR, Frente 2 giros." 
   1 P$="EL FAMOSO CUBO MAGICO.@":
   1 P$="      en el numero 6         ":
   1 O,i;A$(i-2
   1 NOTAS     
   1 N$=N$+" ":
   1 N","045 ABRE   ","046 CICLO  ","#823","2620
   1 M-15337-1985
   1 LAS FUNCIONES <CHR$> Y  <CODE>SON COMPLEMENTARIAS ENTRE  SI,Y SIRVEN PARA CONVERTIR UN CO-DIGO A SU CARACTER  CORRESPON-DIENTE, Y VICEVERSA.#        #SUPON QUE TIENES A TU DISPOSI-CION UNA SERIE DE  LAPICES  DECOLOR,  Y  QUIERES  PINTAR  UNPRADO, EL CIELO, O EL FUEGO...NO TE SERA MUY DIFICIL:       LOS MEDIOS DE QUE DISPONES  SEPRESTAN PERFECTAMENTE A ELLO.%EN CAMBIO, SI DESEAS  INDICAR,POR EJEMPLO, LA POSICION O  ELPESO DE UN OBJETO DETERMINADO,YA NO SERA  TAN  FACIL.  ESTASCANTIDADES SE  ADAPTAN  MAL  ASER REPRESENTADAS MEDIANTE LOSLAPICES DE COLOR.             SIN EMBARGO, PUEDES RECURRIR AUN TRUCO,  ESTABLECIENDO,  POREJEMPLO, EL TRAZADO DE UNA LI-NEA VERDE PARA UN  PESO  INFE-RIOR A UN KILO, Y ROJA  EN  ELCASO CONTRARIO.%            % AUNQUE INDIRECTAMENTE,  HABRASLOGRADO REPRESENTAR UNA INFOR-MACION, MEDIANTE UN MEDIO  PO-CO USUAL.                     EN REALIDAD, HAS REALIZADO UNA<CODIFICACION>.%             %LA CODIFICACION ES UNA TECNICAFUNDAMENTAL EN EL CAMPO DE LOSORDENADORES:  LAS   MAGNITUDESQU
   1 LAS 6 TECLAS QUE DISTINGUEN LANACIONALIDAD DEL TECLADO          QWERTY      
   1 INVESTIGA CUAL ES LA TECLA QUEESTA PRESIONADA EN ESE MOMENTO    INKEY$      
   1 INSTR.    
   1 INKEYPAUSE
   1 INICIALIZA EL CONTADOR  EN  ENCICLO AUTOMATICO                  FOR         
   1 INGELEK JAKSON
   1 INDICA EL CARACTER CUYO CODIGOES SU ARGUMENTO                   CHR$        
   1 I.P.TEXTO 
   1 HAS ESCRITO  EL  PROGRAMA  EM-PLEANDO UNA TECNICA  FUNDAMEN-TAL DEL LENGUAJE  <BASIC>:  ELCICLO <FOR..NEXT>."
   1 FUNCION QUE INVESTIGA EL CODI-GO DE UN CARACTER                 CODE        
   1 FOR TEXTO 
   1 ESTANDAR AMERICANO PARA LA CO-DIFICACION DE CARACTERES          ASCII       
   1 ESTA SENTENCIA  ES  ANALOGA  A<INPUT>, PERO SE DIFERENCIA DEELLA, EN QUE NO PARA  EL  PRO-GRAMA, EN ESPERA DE LA  INTRO-DUCCION DE DATOS.%           %SE UTILIZA EN APLICACIONES MUYINTERESANTES: COMO LA  GESTIONDEL MOVIMIENTO,  LA  EJECUCIONCONTROLADA   DE   DETERMINADASFUNCIONES, Y MUCHAS OTRAS.    SU USO ES MUY SENCILLO:       &                            &10 PRINT INKEY$&             &HACE IMPRIMIR LA TECLA  PULSA-DA, EN EL MOMENTO DE LA EJECU-CION DE LA  SENTENCIA,  CONTI-NUANDO CON LA SIGUIENTE.%    %DE TODAS  FORMAS,  ES  POSIBLEPARAR EL PROGRAMA,  SI  NO  HASIDO PULSADA NINGUNA TECLA:   &                            &10 IF INKEY$<>"" THEN GOTO 10 20 IF INKEY$="" THEN GOTO 20  30 PRINT INKEY$              &                              DE ESTA  FORMA,  LA  IMPRESIONTENDRA LUGAR SOLAMENTE,  CUAN-DO SEA PULSADA UNA TECLA CUAL-QUIERA.#                     #                              LA  SENTENCIA  <PAUSE>,  SIRVEPARA PARAR LA EJECUCION DE  UNPROGRAMA.                     LA INTERRUPCION PUEDE SER PER-MA
   1 DIBUJO    @
   1 DETIENE POR UN TIEMPO LA  EJE-CUCION DE UN PROGRAMA             PAUSE       
   1 CUBO      
   1 CUANTOS BITS UTILIZA EL CODIGOASCII PARA CADA CARACTER          7           
   1 CUANTOS  CARACTERES  TIENE  ELCODIGO  ASCII ?                   128         
   1 CODE      x
   1 CIERRRA UN CICLO  ABIERTO  PORFOR                               NEXT        
   1 C","PLANTEA UN CICLO EN EL QUE <I>","PASE DE <X> A <Y> CON","INCREMENTOS <C>",""
   1 C","04C  FIN   ","#813"
   1 B$="------------"
   1 ACUERDATE DE NUMERAR  LAS  LI-NEAS DE 10 EN 10, A PARTIR  DE10."
   1 A$="VIDEOTEST ":
   1 A$="PON EN MARCHA LA GRABADORA"
   1 A$="PAUSE":
   1 A$="LA LECTURA DEL TECLADO SE REA-LIZA CADA CINCUENTAVO  DE  SE-GUNDO. EL CODIGO DE LA  ULTIMATECLA  PULSADA  ES  MEMORIZADOEN LA  VARIABLE  DEL   SISTEMA<LAST K>, QUE PUEDES LEER  CONPEEK 23560.":
   1 A$="FOR.. NEXT...":
   1 A$="EL TECLADO DEL SPECTRUM, TIENE40 TECLAS QUE SE PUEDEN CONSI-DERAR COMO INTERRUPTORES.":
   1 A$=" INKEY$":
   1 A$=" CHR$ - CODE":
   1 ????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
   1 ;n$;" ? (s/n)"
   1 ;E$;" = ";E
   1 ;"y quita la alimentacion a tu";
   1 ;"ejemplos y ejercicios";
   1 ;"___";w$(i)(f-4
   1 ;"Y PULSA <ENTER>":
   1 ;"TU PUNTUACION ES ";s;" SOBRE 30."
   1 ;"SPECTRUM.      Hasta pronto,";
   1 ;"SIGUIENTE";
   1 ;"RESet    "
   1 ;"R  Atras     "
   1 ;"PREGUNTA N. ";w
   1 ;"PARA TERMINAR PULSA <STOP>."
   1 ;"PARA MEJORAR, VUELVE A LEER";
   1 ;"NO TE PUEDO AYUDAR":
   1 ;"Muy bien, Enhorabuena!"
   1 ;"Movimiento_______";
   1 ;"MUY BIEN ";n$;
   1 ;"La respuesta correcta es:";
   1 ;"LA RESPUESTA ES MUY CORTA";
   1 ;"Indica movimiento  y  numero  degiros a realizar. Ej: ~a3~"
   1 ;"INTENTALO DE NUEVO"
   1 ;"INSercion";
   1 ;"I  Izquierda "
   1 ;"HE AQUI UNA SUGERENCIA:"
   1 ;"Guarda el casete en su  caja";
   1 ;"F  Frente    "
   1 ;"Esta bien escrito";
   1 ;"ESCRIBE TU NOMBRE";
   1 ;"ES EXACTO."
   1 ;"EN EL TECLADO";
   1 ;"D  Derecha   "
   1 ;"B  Abajo     "
   1 ;"A  Alto      "
   1 ;"- - - - - -"''':
   1 ;"""";i$;""" esta equivocado."
   1 ;" PON  EN  MARCHA  LA  GRABADORA ";
   1 ;" PON  EN  MARCHA  LA  GRABADORA ":
   1 ;" ESTOY CARGANDO VIDEOTEST":
   1 ;"       PARA LA GRABADORA        "
   1 ;"          estoy cargando        "''"          VIDEOHARDWARE         ":
   1 ;"             ";
   1 ;"                ":
   1 ;"                  ";
   1 ;"                    ";
   1 ;"                     ":
   1 ;"                              ":
   1 43 - FASE DE OUTPUT","CUAL ES EL RESULTADO FINAL ?",""
   1 4 O U T P U T ","04=IMPRIME ","04>RESULT. ","#82;","2>40
   1 24,6666666666666666666666666666666666666666666666666666666666666666000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000l
   1 23688/2-U"
   1 22 - FASE DE CALCULO","COMO OBTENER LOS MULTIPLOS ?",""
   1 2 ELABORACION ","049CALCULA ","04: X=C*N  ","#82;","2:30
   1 11 - FASE DE INPUT","CUAL ES EL ELEMENTO  NECESARIOPARA NUESTRO PROBLEMA ?",""
   1 10","PLANTEA UN CICLO CON","<I> QUE VAYA DE 2 A 10",""
   1 1 I N P U T ","042INDICA  ","043NUMERO  ","#820","2310
   1 00000000000000000000000000000000000000000000000000000000000000000000000000111111111111102110000000000000021111111111111221100000000000000222222222222222211000000000000002222222222222222110000000000000000000000000000000000000666666666660000000006600000000006666666666666666666666666666666666666666666666666666666666666666:????????????????????????????????????????????????????????????????::::???????????????????????????????????????????????????????????::::????????????????????????????88??????????????????????????????88?????????????????????:?????88?88???????????88?????::::?????88?88???????88????????89:::?????88?8888888888888888889999999???????888888888888888888999999:8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888N
   1 0","PLANTEA UN CICLO INFINITO","EN EL CUAL <A> PERMANEZCA= <3>",""
   1 ...................................
   1 -J/A,ER+J/A*.7
   1 -2.5","PLANTEA UN CICLO EN EL CUAL","<I> ASUMA LOS VALORES:","2,-0.5,-3",""
   1 -2","PLANTEA UN CICLO EN EL CUAL","<I> ASUMA LOS VALORES:","10,8,6,4,2,0",""
   1 ,k(i);"  ":
   1 ,XX;"      ";
   1 ,XX;"      "
   1 ,"               ":
   1 +"d3A C > 3 f412
   1 **AYUDA II INTENTO**
   1 ***respuestas flash***
   1 ***puntuacion***
   1 ***pulsa tecla***
   1 ***comentario final***
   1 ***bloque principal***
   1 ***INPUT controlado***
   1 ***CLS ABAJO***
   1 )="01001110":
   1 )="00110111"
   1 ));q$(q,65
   1 ''''" PRUEBA AHORA A PULSAR LAS  TE-  CLAS QUE DESEES.  EL  PROGRAMA  QUE TENGO EN MEMORIA, TE  PRO-  PORCIONARA LOS CODIGOS DECIMA-  LES DE LOS CARACTERES PULSADOS:";
   1 #EL GRUPO  FOR..NEXT>        #EL  GRUPO  <FOR..NEXT>   SIRVEPARA REALIZAR UN CICLO AUTOMA-TICO EN UN PROGRAMA.%        %SU FUNCION CONSISTE EN COLOCARTODOS LOS PARAMETROS INDISPEN-SABLES  PARA LA CONFECCION  DEUN CICLO (<LOOP>):&          &* VALOR INICIAL;              * VALOR FINAL;                * INCREMENTO;                 * FIN DEL CICLO.%            %ESTE ES EL CASO MAS COMUN:&  &10 FOR I=1 TO 10 STEP 1       20 ...                        30 NEXT I&                   &... Y SE LEE:                 10 PARA I QUE VARIA DE 1 A  10CON PASO (STEP) 1             20 (INSTRUCCION A EJECUTAR)   30 PROXIMO <I>.%             %LA INSTRUCCION COMPRENDIDA EN-TRE <FOR..> Y <NEXT> SE EJECU-TA 10 VECES. ADEMAS, LA VARIA-BLE NUMERICA <I> SE INCREMENTAEN CADA CICLO, COMENZANDO DES-DE 1 (FOR), Y  LLEGANDO  HASTA<10> (TO),CON PASO <1> (STEP);LA VARIABLE <I> TOMA LOS VALO-RES 1..2..3..ETC  HASTA  <10>,CONTINUANDO ENTONCES LA EJECU-CION A PARTIR DE <NEXT>.%    %NATURALMENTE, TODOS LOS  VALO-RES PUEDEN ESTAR FORMADOS  POREX
   1 "xg+xs/2",yg+ys*
   1 "t8; ELABORACION","#?1D","t8?    NEXT C","<?1D","t8C    F I N ","#?1D",""
   1 "t83  I N I C I O","#?10","t87 FOR C=1 TO 3","#?1D"
   1 "RESPUESTA = ";
   1 "PREPAREMOS AHORA  ALGUNOS  CI-","CLOS CONTROLADOS DE  PROGRAMA,","EMPLEANDO  LAS   INSTRUCCIONES","RECIEN APRENDIDAS.",""
   1 "PERFECTO "+N$+"
   1 "OBSERVA  COMO  LOS  RESULTADOSHAN SIDO TEMPORALMENTE MEMORI-ZADOS EN LA VARIABLE <X>,  EM-PLEADA DESPUES EN  LA  FASE DEOUTPUT.",""
   1 "FOR J=4 TO 1...","HE AQUI EN CAMBIO, UN PLANTEA-","MIENTO EQUIVOCADO, PUESTO  QUE","EL STEP ES CONSIDERADO <1>, EL","CICLO NO SE REALIZARA NUNCA.",""
   1 "FOR I=A+4 TO B/(C+D) STEP .1","ES POSIBLE EMPLEAR EXPRESIONES","ARITMETICAS, PARA   PLANTEARSE","LOS PARAMETROS NECESARIOS.",""
   1 "FOR I=1 TO 10:PRINT I:NEXT I","HE AQUI UN CICLO CONTROLADO EN","SU FORMA MAS SENCILLA.        ","IMPRIME LOS NUMEROS DEL <1> AL","<10>.",""
   1 "FOR I=1 TO 10000:NEXT I","ESTA SECUENCIA, EN  APARIENCIA","INUTIL, SIRVE PARA GENERAR RE-","TARDOS EN EL PROGRAMA.",""
   1 "FOR A=10 TO 1 STEP -1","ESTA ES EN  CAMBIO,  LA  FORMA","CORRECTA PARA UN CICLO CON IN-","CREMENTOS NEGATIVOS.",""
   1 "En este caso el resultado serala impresion de  los  primeros10 multiplos  del  numero  quehayamos indicado.","",""
   1 "Emplearemos  la  variable   decontrol del ciclo  <FOR..NEXT>tanto como contador, como mul-tiplicador del numero  indica-do.",""
   1 "El dato necesario es el numerodel que deseamos  obtener  losmultiplos.",""
   1 "DESEAMOS ESCRIBIR UN  PROGRAMAQUE REALICE LAS MISMAS FUNCIO-NES DEL ANTERIOR, PERO QUE USEEL CICLO <FOR..NEXT>.",""
   1 "BIEN, "+N$+"
   1 "AHORA, "+N$,"TRANSFORMAREMOS  EL   ANALISISANTERIOR, PRIMERO EN  UN  DIA-GRAMA DE FLUJO, DESPUES DIREC-TAMENTE  A   UNA   INSTRUCCION<BASIC>.",""
   1 "AHORA, "+N$,"COMPLETAREMOS EL  ESTUDIO  DELCICLO CONTROLADO DE  PROGRAMA,INTRODUCIENDO LAS  INSTRUCCIO-NES MAS APTAS PARA ELLO:           <FOR..TO> Y <NEXT>.",""
   1 "6";"PULSA";
   1 "5VIDEOHARD"
   1 "5";"VUELVE A INTENTARLO !":
   1 "4";"ESTA BIEN ESCRITO ? (S/N)"
   1 "3";"TECLADO Y PULSA <ENTER>":
   1 "3";"ESCRIBE TU NOMBRE EN EL";
   1 "3";"ESCIBE TU NOMBRE EN EL          TECLADO Y PULSA <ENTER>"
   1 "23295+I",
   1 "124-XL/2",
   1 "10";"VIDEOBASIC":
   1 "10";"ERROR !";
   1 "1";" PON EN MARCHA LA GRABADORA  ":
   1 "*1 ","%  "
   1 " IMPRESION DE UNA COLUMNA ","DE LA TABLA DE MULTIPLICAR"
   1  Tel. 031-240.959  
   1  Tel. 031-240.959 
   1  SOFTIDEA (Como) 
   1  SOFTIDEA (Como)
   1  IZQUIERDA -> I 
   1  INTRODUCCION";
   1  FRENTE ----> F 
   1  EJERCICIOS";
   1  EJERCICIO"
   1  DERECHA ---> D 
   1  CARGO EL VIDEOJUEGO";
   1  CARGA LA FASE";
   1  ATRAS -----> R 
   1  ALTO ------> A 
   1  ABAJO -----> B 
   1   Tel. 031-240.959  
   1   D A T A  
   1    Pon en marcha la grabadora   
   1    PULSA ~ STOP ~ PARA PARAR    
   1          ":
   1           * 
   1                                 
   1                         
   1                    
   1                   
   1